home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD! Magazine 3 / AUI_CoverDisk_3.bin / cd_techycorner / superdisk34 / superdisk install < prev   
Encoding:
Text File  |  1994-01-06  |  2.1 KB  |  102 lines
  1.  
  2. (set TRUE 1)
  3. (set FALSE 0)
  4.  
  5. (set docopylibs TRUE)
  6.  
  7. (makeassign "Superdisk:" "Superdisk34:")
  8.  
  9. (set m1 "You are about to use the\n\nAMIGA USER INTERNATIONAL\n\n")
  10. (set m2 "Superdisk installation utility\n")
  11. (set m3 "You have selected the install to Floppy Disk Option.\n\n")
  12. (set m4 "You will need to have a two or three blank formatted disks ")
  13. (set m5 "ready for use.\n\n\n")
  14. (set m6 "If you do not have any disks ready, format some now and then ")
  15. (set m7 "click on \"Proceed\"")
  16. (set m8 "\n\n REMEMBER the Amiga is a multitasking computer ")
  17.  
  18. (message m1 m2)
  19.  
  20.  
  21. (set installto
  22.    (askchoice
  23.       (prompt "Select the type of disk you\nwant to install to\n")
  24.       (default 0)
  25.       (choices "Hard Disk" "Floppy Disk")
  26.       (help @askchoice-help)
  27.    )
  28. )
  29.  
  30. (if (> installto 0 )
  31.    (message m3 m4 m5 m6 m7 m8 )
  32. )
  33.  
  34.    
  35.  
  36. (set loopy 1)
  37.  
  38. (while (= loopy 1)
  39.    
  40.    (set installfile
  41.       (askfile
  42.                (prompt "please select file to decrunch")
  43.                (default "superdisk34:Programs")
  44.                (help @askfile-help)
  45.       )
  46.    )
  47.  
  48.    (set installdest
  49.       (askdir
  50.          (prompt "Into which drawer should\n" (fileonly installfile) "\n be installed ? ")
  51.          (help @askdir-help)
  52.          (default "ram:")
  53.       )
  54.    )
  55.  
  56.    (set lhacommands (cat '"'installfile'"' ' ' '"'installdest'"'))
  57.  
  58.    (message "I am going to execute the command\nsuperdisk34:c/lha x "lhacommands)
  59.  
  60.    (set @default-dest installdest)
  61.  
  62.    (run "superdisk34:c/lha x "lhacommands)
  63.  
  64.    (set loopy
  65.       (askbool
  66.          (prompt "Do you want to decrunch any more programs ?")
  67.          (default 0)
  68.          (help "select \"Yes\" or \"No\"")
  69.       )
  70.    )
  71.  
  72. )
  73.  
  74. (if (= docopylibs TRUE)
  75.    (set libyn
  76.          (askbool
  77.             (prompt "Do you want to install / update any libraries ?")
  78.             (default 0)
  79.             (help "select \"Yes\" or \"No\"")
  80.          )
  81.    )
  82. )
  83.  
  84.  
  85. (if (= libyn 1)
  86.    
  87.    (copyfiles
  88.       (prompt "Please select a file to copy")
  89.       (help @copyfiles-help)
  90.       (source "superdisk34:libs")
  91.       (dest "ram:")
  92.       (files)
  93.       (pattern "#?.library")
  94.       (optional "askuser")
  95.       (confirm)
  96.    )
  97. )
  98.  
  99. (exit "Operation completed")
  100.  
  101.  
  102.